; file for !Star to make a wimpinterface for !formula (formula08)

{formula
;
;formula (convert a file with formulacommands into assembler and assemble it)
;
:formula
#0 FFF FFD
*remove <wimp4mula$dir>.out.out
*formula <wimp4mula$dir>.out.out %0
!*filer_opendir <wimp4mula$dir>.out
;
;copy the temporary assembler file
;
:get target_asm
<0 <formula$work>.target_asm
*copy <formula$work>.target_asm <wimp4mula$dir>.copy.copy ~c~vf
!*filer_opendir <wimp4mula$dir>.copy
;
;(convert a file with formulacommands only into assembler)
;
:formula -make
#0 FFF FFD
*remove <wimp4mula$dir>.asm.asm
*<formula$dir> <wimp4mula$dir>.asm.asm %0
!*filer_opendir <wimp4mula$dir>.asm
;
;run the assembler (default is output of -make)
;
:run tla 
<0 <wimp4mula$dir>.asm.asm
*remove <wimp4mula$dir>.out.out
*<tla$path>tla -bl null: %0 <wimp4mula$dir>.out.out
!*filer_opendir <wimp4mula$dir>.out
;
}
